home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 January / Ahoy_Magazine_87-01_1987_Double_L.d64 / Screens Data C (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  785b  |  27 lines
  1. 5     rem *** screens data c ***
  2. 10 rem load and run screens data a first: permanent ml begins at 53133
  3. 100 a=207:fork=1to3:x=.
  4. 105 forj=1to3:readb:readc:readd:x=x+b+c+d:pokec,b:poked,a:next
  5. 110 reade:ifx<>ethenprint"error in data line"peek(64)*256+peek(63)
  6. 115 x=.:next
  7. 150 data143,37748,37749,141,37783,37784,238,37824,37825,227235
  8. 155 data238,37861,37862,141,37869,37870,141,38076,38077,228135
  9. 160 data142,38082,38083,143,38086,38091,222,40826,40827,234502
  10. 590 :
  11. 595 rem *** save ml ***
  12. 600 print"saving screens c"
  13. 605 poke780,8:poke781,8:poke782,255:sys65466
  14. 610 n$="0:screens c,p,w"
  15. 615 l=len(n$):forj=1tol:poke849+j,asc(mid$(n$,j,1)):next
  16. 620 poke780,l:poke781,82:poke782,3:sys65469
  17. 635 poke251,59:poke252,147
  18. 645 poke780,251:poke781,124:poke782,159:sys65496
  19. 650 ifstthengoto700
  20. 655 print"screens c saved":stop
  21. 660 :
  22. 695 rem *** read error channel ***
  23. 700 open15,8,15
  24. 705 input#15,a,a$,b,c
  25. 710 printa,a$,b,c
  26. 715 close15:stop
  27.